home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / VB6_Clone_211203572008.psc / VB6 CLONE[AM 06-44 08-05-08]By_QQ20437023 / Class / Class_Application.cls next >
Text File  |  2008-05-08  |  3KB  |  83 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "Class_Application"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15. Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As Long
  16. Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
  17. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
  18.  
  19. Private Type POINTAPI
  20.         X As Long
  21.         Y As Long
  22. End Type
  23. Private Type Msg
  24.         hWnd As Long
  25.         Message As Long
  26.         wParam As Long
  27.         lParam As Long
  28.         Time As Long
  29.         pt As POINTAPI
  30. End Type
  31. Private Const PM_NOREMOVE = 0
  32. Private Const PM_REMOVE = 1
  33. Private Declare Function TranslateMessage Lib "user32" (lpMsg As Msg) As Long
  34. Private Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As Msg) As Long
  35. Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
  36.  
  37. Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
  38.  
  39. Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  40.  
  41. 'APP╩⌠╨╘
  42. Public CommandLine    As String '├ⁿ┴ε╨╨
  43. Public hInstance        As Long '╩╡└²
  44. Public ErrDescription As String '┤φ╬≤├Φ╩÷
  45.  
  46.  
  47. '╨╢╘╪┤░╠σ
  48. Public Sub Unload(ByRef CForm As Class_Form)
  49.         Const WM_CLOSE = &H10
  50.         PostMessage CForm.hWnd, WM_CLOSE, 0&, 0&
  51. End Sub
  52.  
  53.  
  54.  
  55. 'DoEvents╘÷╟┐░µ
  56. Public Sub DoEventsEx()
  57.         Dim wMsg As Msg
  58.         While PeekMessage(wMsg, 0, 0, 0, PM_REMOVE)
  59.                 Call TranslateMessage(wMsg)
  60.                 Call DispatchMessage(wMsg)
  61.         Wend
  62. End Sub
  63.  
  64. '╨▐╒²GetCommandLine║»╩²╚├VB6▒└└ú╡─╬╩╠Γ
  65. Private Function GetCommLineVB6() As String
  66.         Dim RetStr As Long, SLen As Long
  67.         Dim Buffer As String
  68.         RetStr = GetCommandLine
  69.         SLen = lstrlen(RetStr)
  70.         If SLen > 0 Then
  71.                 Dim CommLineVB6 As String
  72.                 CommLineVB6 = Space$(SLen)
  73.                 CopyMemory ByVal CommLineVB6, ByVal RetStr, SLen
  74.                 GetCommLineVB6 = CommLineVB6
  75.         End If
  76. End Function
  77.  
  78. '╣╣╘∞║»╩²
  79. Private Sub Class_Initialize()
  80.         hInstance = GetModuleHandle(vbNullString)       '╗±╚í─ú┐Θ╛Σ▒·
  81.         CommandLine = GetCommLineVB6                    '╗±╚í├ⁿ┴ε╨╨▓╬╩²
  82. End Sub
  83.